home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / xtel_detect.nasl < prev    next >
Encoding:
Text File  |  2005-03-31  |  2.5 KB  |  106 lines
  1. #
  2. # This script was written by Michel Arboi <arboi@alussinan.org>
  3. #
  4. # GPL
  5. #
  6.  
  7.  
  8.  
  9. if(description)
  10. {
  11.   script_id(11121);
  12. #  script_cve_id("CVE-MAP-NOMATCH");
  13.   script_version ("$Revision: 1.5 $");
  14.  
  15.   script_name(english:"xtel detection", francais:"detection de xtel");
  16.  
  17.   desc["english"] = "
  18. xteld is running on this port. This service allows users to
  19. connect to the 'Teletel' network. Some of the servers are expensive.
  20. Note that by default, xteld forbids access to the most expensive 
  21. services.
  22.  
  23. Risk factor : None";
  24.  
  25.   desc["francais"] = "
  26. xteld tourne sur ce port. Ce service permet de se connecter sur le 
  27. rΘseau 'TΘlΘtel'. Certains des serveurs sont chers.
  28. Notez que par dΘfaut, xteld interdit l'accΦs aux serveurs les plus chers.
  29.  
  30. Risque : Aucun";
  31.  
  32.  
  33.   script_description(english:desc["english"], francais:desc["francais"]);
  34.  
  35.   summary["english"] = "Detect xteld";
  36.   summary["francais"] = "DΘtecte xteld";
  37.   script_summary(english:summary["english"], francais:summary["francais"]);
  38.  
  39.   script_category(ACT_GATHER_INFO);
  40.  
  41.   script_copyright(english:"This script is Copyright (C) 2002 Michel Arboi",
  42.         francais:"Ce script est Copyright (C) 2002 Michel Arboi");
  43.   script_family(english:"Service detection");
  44.   script_dependencie("find_service.nes");
  45.   script_require_ports("Services/unknown", 1313);
  46.  
  47.   exit(0);
  48. }
  49.  
  50. #
  51. include ("misc_func.inc");
  52.  
  53. function read_xteld(s)
  54. {
  55.   m = "";
  56.   while (1)
  57.   {
  58.     r = recv(socket: s, length: 1);
  59.     if (strlen(s) == 0) return (m);
  60.     len = ord(r);
  61.     if (len == 130) return (m);
  62.     r1 = recv(socket: s, length: len);
  63.     send(socket: s, data: raw_string(0x83));
  64.     r = recv(socket: s, length: 1);
  65.     if (strlen(s) == 0) return (m);
  66.     len = ord(r);
  67.     if (len == 130) return (m);
  68.     r2 = recv(socket: s, length: len);
  69.     send(socket: s, data: raw_string(0x82));
  70.     m = string(m, r1, " - ", r2, "\n");
  71.   }
  72. }
  73.  
  74. req1 = raw_string(6) + "Nessus" + raw_string(0x82);
  75.  
  76. # Quick way
  77. port=1313;
  78.  
  79. # Slow way
  80. #port = get_kb_item("Services/unknown"); 
  81. #if (! port) port=1313;
  82.  
  83. if (! get_port_state(port)) exit(0);
  84. if (known_service(port: port)) exit(0);
  85.  
  86. soc = open_sock_tcp(port);
  87. if (! soc) exit(0);
  88.  
  89. send(socket: soc, data: req1);
  90. m1 = read_xteld(s: soc);
  91. close(soc);
  92.  
  93. if (m1)
  94. {
  95.   m2 = string(
  96. "xteld tourne sur ce port. Ce service permet de se connecter sur le\n",
  97. "rΘseau 'TΘlΘtel'. Certains des serveurs sont chers.\n",
  98. "Voici les services autorisΘs ici :\n",
  99.     m1,
  100. "\nRisque : Aucun\n"); 
  101.   security_note(port: port, data: m2);
  102.   register_service(port: port, proto: "xtel");
  103. }
  104.  
  105.  
  106.